home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / E-Education / (c)ed5.d64 / contractions (.txt) < prev    next >
Commodore BASIC  |  2009-01-03  |  7KB  |  205 lines
  1. 1 GOTO910
  2. 2 PRINT"x[169][141][169][141]X` [234][255][169][255][133][145]L4[234]x[169]1[141][169][234][141]X` 
  3. 4 [153]"xhhh+hNOThhhhhhhPRINT#HRUNHX`    
  4. 5 PRINT"hhhhhhh`  
  5. 6 [153]"CLOSE(null)LEFT$INPUT#(null)STEP(null)INPUT(null) (null)USRRUNNEWCLOSE(null)LEFT$ON(null)LET(null)(null)(null)(null)MID$(null)(null)`   
  6. 7 PRINT"[162][160][255][200][177][251][145][253][136][208][249][230][252][230][254][202][208][242]`  
  7. 35 [139]UW[178]0[167][158]UU,15
  8. 40 [151]UC,0:[151]UN,0:UR$[178]"":UI$[178]"":[139]UL[178]0[167]UL[178]39
  9. 45 [161]UI$:[139]UI$[178]""[167]45
  10. 50 UA[178][198](UI$):UR[178][195](UR$):[139]UA[178]13[175]UR[177]0[167][151]UC,1:[153]" CMD";:[137]75
  11. 55 [139]UA[178]20[167][145][171](UR[178]0)[137]45:UR$[178][200](UR$,UR[171]1):[153]"CMD  CMDCMD";:[137]45
  12. 60 [139]UR[178]UL[167]45
  13. 65 [141]95:UR$[178]UR$[170]UI$:[153]UI$;:[137]45
  14. 75 [129]UI[178]UR[164]1[169][171]1:[139][202](UR$,UI,1)[178]" "[167][130]
  15. 80 UR$[178][200](UR$,UI):[153]:[142]
  16. 95 [139][195](US$)[178]0[167]110
  17. 100 [129]UI[178]1[164][195](US$):[139]UI$[179][177][202](US$,UI,1)[167][130]:UI$[178]""
  18. 105 [142]
  19. 110 [139]UA[178]46[167][142]
  20. 115 [139]UA[178]32[175]UR[179][177]0[167][142]
  21. 120 [139]UA[177]47[175]UA[179]58[167][142]
  22. 125 [139]UA[177]64[175]UA[179]91[167][142]
  23. 130 [139]UA[179]193[176]UA[177]218[167]UI$[178]"":[142]
  24. 135 [139][194](UT)[178]UU%[167]UI$[178][199](UA[171]128)
  25. 140 [142]
  26. 155 UZ[178]0:US$[178]UJ$:UG$[178]UK$:UT$[178]UL$:UP[178]UJ:UL[178]UK:[153]"LOAD";:[151]UY,6:[151]UX,6
  27. 160 [151]UT,UV%:[151]251,0:[151]252,UF:[151]253,0:[151]254,US[173]256:[158]UV:[158]UU,15
  28. 165 [151]U1,U1%:[151]U2,U2%:[151]U3,U3%[171]1:[151]U4,U4%:[137]35
  29. 299 :
  30. 300 [143] DERIVED FROM COMMODORE ONTARIO EDUCATIONAL SOFTWARE PROJECT 1983
  31. 310 [143] PROJECT MANAGER: FRANK WINTER
  32. 320 [143] PROGRAM NAME: CONTRACTIONS
  33. 330 [143] WRITTEN BY: BRUCE J. ALATALO
  34. 340 [143] REVISED BY: SANDRA BLANKENFELDT
  35. 350 [143] UPDATED BY: BILL CUMBERLAND
  36. 360 :
  37. 399 :
  38. 400 [153]"LOAD":[151]UT,UL%:[151]UY,0:[151]UX,0:[151]646,3
  39. 405 [153]"             RIGHT$(null)(null)(null)(null)(null)LEN(null)RIGHT$(null)(null)(null) WAIT
  40. 410 PRINT" [212]HIS PROGRAM WILL HELP YOU LEARN"
  41. 415 PRINT" HOW TO FORM CONTRACTIONS."
  42. 420 PRINT" [201] WILL SHOW YOU TWO WORDS.
  43. 425 [153]" (null)OUR TASK IS TO TYPE THE CONTRACTIONWAIT."
  44. 430 [153]" (null)HEN, RIGHT$ WILL EITHER CONGRATULATE YOU"
  45. 435 [153]" FOR GIVING THE CORRECT ANSWER, OR
  46. 440 PRINT" TELL YOU THAT YOU ANSWERED INCORRECTLY"
  47. 445 PRINT" AND SHOW YOU THE CORRECT CONTRACTION.":GOSUB820
  48. 450 PRINT"[147] [193] CONTRACTION IS A WORD MADE BY "
  49. 452 PRINT" COMBINING TWO OTHER WORDS."
  50. 454 PRINT" [212]O DO THIS, YOU MUST USE AN"
  51. 456 PRINT" APOSTROPHE  ' [146]. [212]HE APOSTROPHE SHOWS"
  52. 458 PRINT" THAT A LETTER OR LETTERS IS/ARE         MISSING."
  53. 460 PRINT" [212]HE FOLLOWING 7 WORDS ARE MOST"
  54. 462 PRINT" OFTEN USED AS THE SECOND PART OF A "
  55. 464 PRINT" CONTRACTION:"
  56. 465 GOSUB820
  57. 466 PRINT"[147]    [200]ERE ARE THE 7 WORDS AND THEIR          CONTRACTIONS:"
  58. 468 PRINT"      HAVE [146] ------------  'VE [146]"
  59. 470 PRINT"      HAD,WOULD [146] -------  'D [146]"
  60. 472 PRINT"      NOT [146] -------------  N'T [146]"
  61. 474 PRINT"      AM [146] --------------  'M [146]"
  62. 476 PRINT"      WILL [146] ------------  'LL [146]"
  63. 478 PRINT"      ARE [146] -------------  'RE [146]"
  64. 480 PRINT"      IS [146] --------------  'S [146]"
  65. 485 PRINT"   [208]RESS  [210] [146] TO REPEAT INSTRUCTIONS        AND  [195] [146] TO CONTINUE.
  66. 490 [161]R$:[139]R$[179][177]"R"[175]R$[179][177]"C"[167]490
  67. 493 [139]R$[178]"R"[167]400
  68. 495 [142]
  69. 499 :
  70. 500 [143] <YES> SOUND
  71. 505 SS[178]54272:[129]EE[178]SS[164]SS[170]28:[151]EE,0:[130]
  72. 510 [151]54296,15:[151]54277,42:[151]54278,250
  73. 515 [151]54276,23:[151]54273,23:[151]54272,191
  74. 520 [129]TM[178]1[164]100:[130]:[151]54276,32:[129]TM[178]1[164]200:[130]
  75. 525 [151]54296,0:[142]
  76. 530 [143] <NO> SOUND
  77. 535 SS[178]54272:[129]EE[178]SS[164]SS[170]28:[151]EE,0:[130]
  78. 540 [151]54296,15:[151]54277,18:[151]54278,242
  79. 545 [151]54276,33:[151]54273,4:[151]54272,48
  80. 550 [129]TM[178]1[164]300:[130]:[151]54276,32:[129]TM[178]1[164]400:[130]
  81. 555 [151]54296,0:[142]
  82. 560 [143] <BLIP> SOUND
  83. 565 SS[178]54272:[129]EE[178]SS[164]SS[170]28:[151]EE,0:[130]
  84. 570 [151]54296,8:[151]54277,42:[151]54278,250
  85. 575 [151]54276,23:[151]54273,23:[151]54272,191
  86. 580 [129]TM[178]1[164]30:[130]:[151]54276,32:[129]TM[178]1[164]50:[130]
  87. 585 [151]54296,0:[142]
  88. 590 [129]TM[178]1[164]500:[130]:[142]
  89. 591 [129]TM[178]1[164]1000:[130]:[142]
  90. 592 [129]TM[178]1[164]2000:[130]:[142]
  91. 593 [129]TM[178]1[164]3000:[130]:[142]
  92. 594 [129]TM[178]1[164]4000:[130]:[142]
  93. 595 [129]TM[178]1[164]5000:[130]:[142]
  94. 596 [129]TM[178]1[164]6000:[130]:[142]
  95. 597 [129]TM[178]1[164]7000:[130]:[142]
  96. 599 :
  97. 800 [153]"LOAD";:[151]UT,UU%:[151]UY,0:[151]UX,0:[151]646,3
  98. 801 [153]"      A TPUG EDUCATIONAL PROGRAM":[141]591
  99. 805 [153]"                                        WAIT";
  100. 806 [153]"                                        WAIT";
  101. 807 [153]"              CONTRACTIONS              WAIT";
  102. 808 [153]"                                        WAIT";
  103. 809 [153]"                                        WAIT":[141]591:[141]560
  104. 810 [153]"           INSTRUCTIONS?  Y/N
  105. 811 GETR$:IFR$<>"Y"ANDR$<>"N"THEN811
  106. 812 IFR$="Y"THENGOSUB400
  107. 813 PRINT"[147]  AND AWAY WE GO ...... "
  108. 814 GOSUB591:GOSUB500:GOSUB590:GOTO1000
  109. 819 :
  110. 820 GOSUB591:GOSUB560
  111. 822 POKEUN,0:PRINTLEFT$(UD$,24);" [208]RESS [211][208][193][195][197] [194][193][210] TO CONTINUE [146]"
  112. 824 GETUI$:IFUI$<>" "THEN824
  113. 826 RETURN
  114. 829 :
  115. 830 GOSUB591:GOSUB560
  116. 835 POKEUN,0:PRINTLEFT$(UD$,24);"[153] [208]RESS [211][208][193][195][197] [194][193][210] TO CONTINUE [146][155]"
  117. 840 GETUI$:IFUI$<>" "THEN840
  118. 845 RETURN
  119. 850 UP=UP+1:PRINT"[147]"LEFT$(UT$+UP$,21);RIGHT$(UP$+UG$+STR$(UP),18)
  120. 855 PRINT" --------------------------------------"
  121. 860 IFUH=0THENPRINTLEFT$(UD$,24);LEFT$(UP$,7);"ANSWER, THEN PRESS RETURN[146]"
  122. 865 UH=0:PRINT"":RETURN
  123. 875 PRINTLEFT$(UD$,24);"           ONE MOMENT PLEASE...     ":RETURN
  124. 900 US=1024:U1=209:U2=210:U3=211:U4=214:UC=204:UB=2048:UX=53280:UD=2064
  125. 902 UT=53272:UU%=21:UL%=23:UP%=2151:UN=198:UY=53281:UU=2199:UE=2087
  126. 904 UC$=CHR$(155):UV=1214:UF=196:UV=2238
  127. 905 UD$="":UP$="                                      "
  128. 906 DIMF$(40),E$(40),B$(201)
  129. 907 UT$=" CONTRACTIONS"
  130. 909 RETURN
  131. 910 GOSUB900:PRINT"[147] "
  132. 970 GOTO 800
  133. 1000 PRINT"[147]"UC$;:RESTORE:POKEUY,15:POKEUX,15:POKEUT,UU%
  134. 1020 PRINT"[147]"
  135. 1680 REM**MAIN PROGRAM**
  136. 1685 UT$=" CONTRACTIONS":UG$="QUESTION":POKEUX,15:POKEUY,15:POKE646,9
  137. 1690 RT=0:WR=0:NN=0:PRINT"[147]"
  138. 1710 RESTORE:FORI=1TO38:READF$(I):NEXTI
  139. 1720 FORI=1TO38:READE$(I):NEXTI
  140. 1730 REM   POKEUX,0:POKEUY,9:SYSUU,15
  141. 1733 PX=INT(RND(0)*38+1)
  142. 1735 NN=NN+1:UP=NN-1
  143. 1736 IFNN>10THENGOTO8000
  144. 1737 POKE53280,15:POKE53281,15:POKE646,9:GOSUB850
  145. 1740 PRINT"  WHICH CONTRACTION IS FORMED BY:"
  146. 1750 PRINT""TAB(15)F$(PX)
  147. 1765 INPUT"  YOUR ANSWER: ";UR$
  148. 1766 REM INPUT"   UR$:REM GETUR$:IUR$=""THEN1766
  149. 1767 UL[178]15:US$[178]"ABCDEFGHIJKLMNOPQRSTUVWXYZ'":AX$[178]UR$
  150. 1770 [139] AX$[178]E$(PX)[167][141]6000:RT[178]RT[170]1:[137]1820
  151. 1780 [139]AX$[179][177]E$(PX)[167] [141]7000:WR[178]WR[170]1
  152. 1790 [153]"LOADTHE CORRECT ANSWER IS ";E$(PX)
  153. 1800 [153]"IT IS NOT ";AX$;"."
  154. 1810 [153]"                 FREFREFRE":[141]597
  155. 1820 :
  156. 1870 [137]1730
  157. 1880 [143]**COMPONENT WORDS**
  158. 1890 [131] IS + NOT,I + HAVE,YOU + ARE,IT + IS,WILL + NOT, + WOULD
  159. 1900 [131] COULD + HAVE,HAVE + NOT, + AM,I + WILL,SHOULD + NOT
  160. 1910 [131] WE + WILL,SHE + WOULD,HE + IS,DO + NOT,HE + WILL
  161. 1920 [131]  THEY + HAVE,DID + NOT,THAT + IS,WE + ARE,HE + WOULD
  162. 1930 [131] DOES + NOT,SHE + IS,YOU + HAVE,THEY + ARE,WOULD + NOT
  163. 1940 [131] THEY + WILL,YOU + WOULD OR HAD,WE + HAVE,IT + WILL
  164. 1950 [131] COULD + NOT,WE + HAD OR WOULD,SHOULD + HAVE,YOU + WILL
  165. 1960 [131] THEY + WOULD OR HAD,WOULD + HAVE,SHE + WILL,HAD + NOT
  166. 1970 [131] ISN'T,'VE,YOU'RE,IT'S,WON'T,'D,COULD'VE,HAVEN'T,I'M
  167. 1980 [131] 'LL,SHOULDN'T,WE'LL,SHE'D,HE'S,DON'T,HE'LL,THEY'VE,DIDN'T
  168. 1990 [131] THAT'S,WE'RE,HE'D,DOESN'T,SHE'S,YOU'VE,THEY'RE,WOULDN'T
  169. 2000 [131] THEY'LL,YOU'D,WE'VE,IT'LL,COULDN'T,WE'D,SHOULD'VE,YOU'LL
  170. 2010 [131] THEY'D,WOULD'VE,SHE'LL,HADN'T
  171. 6000 [153]"                 CORRECT!               "
  172. 6010 [141]500:[141]593:[142]
  173. 7000 [143]***FROWNING FACE***
  174. 7010 [153]"LOAD":[151]53280,0:[151]53281,0:[151]646,7:
  175. 7020 X$[178]"        "
  176. 7030 [153]X$;"
  177. 7040 PRINTX$;"      @@@@@@@@@@@@
  178. 7050 [153]X$;"     THEN            FN
  179. 7060 PRINTX$;"     [167]            [165]
  180. 7070 [153]X$;"    SPC(SPC(   X    X   SPC(SPC(
  181. 7080 PRINTX$;"    [166][166]            [166][166]
  182. 7090 [153]X$;"     THEN     ()     FN
  183. 7100 PRINTX$;"     [167]            [165]
  184. 7110 [153]X$;"     THEN    INTFREFREABS    FN
  185. 7120 PRINTX$;"      [205]   [181]  [182]   [206]
  186. 7130 [153]X$;"       (null)        (null)
  187. 7140 PRINTX$;"        [205]      [206]
  188. 7150 [153]X$;"         TAB(TAB(TAB(TAB(TAB(TAB( "
  189. 7160 [153]X$;"        O U C H ! "
  190. 7170 [141]530:[141]592
  191. 7180 [142]
  192. 8000 [153]"LOADSTOP         HERE IS YOUR SCORE
  193. 8010 PRINT"     YOU ANSWERED "NN-1" QUESTIONS
  194. 8020 [153]"     "RT" ANSWERS WERE STOPCORRECTVERIFY"
  195. 8030 [153]"     "WR" ANSWERS WERE DEFWRONGVERIFY
  196. 8040 GOSUB594:GOSUB560
  197. 8050 PRINT"   [196]O YOU WISH TO REPEAT THIS PROGRAM?               ([217] OR [206]);
  198. 8055 [161]R$:[139]R$[179][177]"Y"[175]R$[179][177]"N"[167]8055
  199. 8060 [139]R$[178]"Y"[167] [140]:[137]800
  200. 8070 [153]"LOAD  (null)ETURNING TO THE DISK (null)VAL(null)(null)
  201. 8075 LOAD"MENU",8
  202. 8080 RUN
  203. 8085 END
  204. 9000 REM WHC 90:11:29
  205.